home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
stay42.zip
/
STAYI13.410
< prev
next >
Wrap
Text File
|
1986-06-13
|
1KB
|
19 lines
Inline(
{; STAYI13.400}
{;-----------}
{; Routine to Set a Flag when INT 13 Disk I/O is active}
$5D { Pop Bp ; Remove Turbo stack frame}
/$5D { Pop Bp}
/$2E { CS:}
/$80/$0E/>INTR_FLAGS/<INT13_ON{ Or by [<Intr_flags],<INT13_on ; Say INT 13 is Active}
/$9C { Pushf ; Invoke Original Disk INT 13}
/$2E { CS:}
/$FF/$1E/>BIOS_INT13 { Call dw [<BIOS_INT13]}
/$9C { Pushf ; Save Return Flags}
/$2E { CS:}
/$80/$26/>INTR_FLAGS/<FOXS-INT13_ON{ And by [<Intr_flags],<Foxs-INT13_on; Clear INT 13 Active flag}
/$9D { Popf ; Retrieve results flags}
/$CA/$02/$00 { RETf 2 ; Throw away old flags}
{;......................................................................}
);